home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / assembly / mapsrc.lha / macros / decconv < prev    next >
Encoding:
Text File  |  1980-02-19  |  335 b   |  22 lines
  1.  
  2. decconv macro                ;convert dec to ASCII
  3.  
  4.  ;decconv_type set 5            ;number of digits.
  5.  ;decconv_type2 set 10000        ;=10^(decconv_type-1)
  6.  
  7.                     ;A0 = dest
  8.                     ;D0 = number to convert
  9.  
  10.     move.w #decconv_type-1,d1
  11.     move.l #decconv_type2,d2
  12. .\@wr    
  13.     divu d2,d0
  14.     add #$30,d0
  15.     move.b d0,(a0)+
  16.     clr.w d0
  17.     swap d0
  18.     divu #10,d2
  19.     dbra d1,.\@wr
  20.  
  21.     endm
  22.